landa 300e-9[m]
flanda c_const/landa
p_pero 350e-9[m]
w_line 100e-9[m]
l_dom 8*p_pero
l_pml 500e-9[m]
d_pero 150e-9[m]
d_glass 500e-9[m]
landa0 300e-7[m]
flanda0 c_const/landa0
na 1
nb 1.45
ang_a 0*pi/18[rad]
ang_b asin(na*sin(ang_a)/nb)